home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Word Perfect Main Street: Paper Planes
/
WordPerfect Main Street - Paper Planes.iso
/
mac
/
p33-35
/
00070_Script_70
< prev
next >
Wrap
Text File
|
1994-07-31
|
842b
|
34 lines
on mouseDown
global theVCRButtons
mCancelPlay(theVCRButtons)
mCancelFastFwd(theVCRButtons)
global Preview
global Plane
set normal = the number of cast ("P" & string(Plane) & "PreNorm")
set hilite = the number of cast ("P" & string(Plane) & "PreHiLite")
buttonDown(Preview, normal, hilite)
end
on mouseUp
global Preview
global Plane
set normal = the number of cast ("P" & string(Plane) & "PreNorm")
set test = buttonUp(Preview)
if test then
puppetSound "aerial"
updateStage
preLoadCast the number of cast ("P" & string(Plane) & ".PRE")
global StepsChannel
puppetSprite StepsChannel, true -- freezes current image
global ReturnFrame
set ReturnFrame = the frame
global Plane
go to "P" & string(Plane) &"Preview"
end if
end